home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol147 / bumblbee.bas < prev    next >
Encoding:
BASIC Source File  |  1986-12-16  |  3.5 KB  |  94 lines
  1. 10 REM The Flight Of The Bumble Bee"
  2. 20 REM From the Fairy-tale Opera "Tsar Saltan"
  3. 30 REM    by N. Rimsky-Korsakov
  4. 40 '
  5. 50 REM Translated to Basic for the IBM-PC.
  6. 60 '
  7. 70 CLS
  8. 80 LOCATE 11,26
  9. 90 PRINT "The Flight Of The Bumble Bee"
  10. 100 LOCATE 14,21
  11. 110 PRINT "From the Fairy-tale Opera 'Tsar Saltan'"
  12. 120 LOCATE 15,30
  13. 125 PRINT "by N. Rimsky-Korsakov"
  14. 130 PLAY "T150 MF ML L16 O4"
  15. 140 REM FIRST BAR
  16. 150 PLAY "ML E D# D C# D C# C < B > C < B B- A G# G F# F"
  17. 160 PLAY "E D# D C# D C# C < B > C < B B- A G# G F# F"
  18. 170 REM SECOND BAR
  19. 180 PLAY "E D# D C# D C# C < B > E D# D C# D C# C < B"
  20. 190 PLAY "MN > E D# D C# C F E D# E D# D C# C C# D D#"
  21. 200 REM THIRD BAR
  22. 210 PLAY "E D# D C# C F E D# E D# D C# C C# D D#"
  23. 220 PLAY "ML E D# D C# D C# C MN < B > C C# D D# E F E D"
  24. 230 REM FOURTH BAR
  25. 240 PLAY "E D# D C# D C# C < B > C C# D D# E F# G G#"
  26. 250 PLAY "A G# G F# F B- A G# A G# G F# F F# G G#"
  27. 260 REM FIFTH BAR
  28. 270 PLAY "A G# G F# F B- A G# A G# G F# F F# G G#"
  29. 280 PLAY "A G# G F# G F# F E F F# G G# A B- A G"
  30. 290 REM SIXTH BAR
  31. 300 PLAY "A G# G F# G F# F E F F# G G# A B- A G"
  32. 310 PLAY "L8 < F L16 A A A A A A A"
  33. 320 PLAY "B G# B G# B G# B G#"
  34. 330 REM SEVENTH BAR
  35. 340 PLAY "A A A A A A A A"
  36. 350 PLAY "B G# B G# B G# B G#"
  37. 360 PLAY "> A B- A G# A B A B A B- A G# A B A G#"
  38. 370 REM EIGHTH BAR
  39. 380 PLAY "A A# B > C C# C < B B- A A# B > C C# C < B B-"
  40. 390 PLAY "< F# > D D D D D D D E- C# E- C# E- C# E- C#"
  41. 400 REM 9TH BAR
  42. 410 PLAY "D D D D D D D D    E- C# E- C# E- C# E- C#"
  43. 420 PLAY ">D E- D C# D E D C D E- D C# D E D C"
  44. 430 REM 10TH BAR
  45. 440 PLAY "D E- E F F# F E E- D E- E F F# F E- E"
  46. 450 PLAY "D C# C < B B- > E- D C# D C# C < B B- B > C C#"
  47. 460 REM 11TH BAR
  48. 470 PLAY "> C# C < B > C < B B- A B- B > C C# C C# D D#"
  49. 480 PLAY "E D# D C# D C# C < B > C < B B- A G# G F# F"
  50. 490 REM 12TH BAR
  51. 500 PLAY "E F E D# E F E D E F E D# E F E D"
  52. 510 PLAY "E F E D# < E F E D# E F E D# E F E D"
  53. 520 REM 13TH BAR
  54. 530 PLAY "MS E MN D# D C# D C# C < B > C < B B- A G# G F# F"
  55. 540 PLAY "E F E D# E F E D E F E D# E F E D"
  56. 550 REM 14TH BAR
  57. 560 PLAY "E F E D# E F E D E F E D# E F E D"
  58. 570 PLAY "E F F# G G# A A# B > C C# D D# E F F# G"
  59. 580 REM 15TH BAR
  60. 590 PLAY "G# A A# B > C C# D D# E F E D# E F E D"
  61. 600 PLAY "E D# D C# C F E D# E D# D C# C C# D D#"
  62. 610 REM 16TH BAR
  63. 620 PLAY "E D# D C# C C# D D# E D# D C# C C# D D#"
  64. 630 PLAY "E D# D C# D C# C < B > C C# D D# E F E D"
  65. 640 REM 17TH BAR
  66. 650 PLAY "E D# D C# D C# C < B > C C# D D# E F# G G#"
  67. 660 PLAY "A G# G F# F B- A G# A G# G F# F F# G G#"
  68. 670 REM 18TH BAR
  69. 680 PLAY "A G# G F# F B- A G# A G# G F# F F# G G#"
  70. 690 PLAY "A G# G F# G F# F E F F# G G# A B- A G"
  71. 700 REM 19TH BAR
  72. 710 PLAY "A G# G F# F F# G G# A B > C D E F E D#"
  73. 720 PLAY "E D# D C# C F E D E D# D C# C C# D D#
  74. 730 REM 20TH BAR
  75. 740 PLAY "E D# D C# C F E D# E D# D C# C C# D D#
  76. 750 PLAY "MS L8 E L16 < G# A MN B- B > C C# D C# C < B > C < B B- A"
  77. 760 REM 21ST BAR
  78. 770 PLAY "G A A# B > C C# D D# E F E D# E F E D"
  79. 780 PLAY "MS L8 E L16 G# A MN B- B > C C# D C# C < B > C < B B- A"
  80. 790 REM 22ND BAR
  81. 800 PLAY "G# A A# B > C C# D D# < E F E D# E F# G G#"
  82. 810 PLAY "A G# G F# G F# F E F E D# D C# C < B B-"
  83. 820 REM 23RD BAR
  84. 830 PLAY "A G# G F# G F# F E F E D# D C# C < B B-"
  85. 840 PLAY "A B- A G# B G B G MS L 8 A B > C D MN L 16"
  86. 850 REM 24TH BAR
  87. 860 PLAY "E F E D# F D F D MS L8 E F# G G#"
  88. 870 PLAY "MS L21 A < C D P8 L16 MN < E F F# G G# A B- B C C# D D#"
  89. 880 REM 25TH (AND LAST) BAR
  90. 890 PLAY "E F F# G G# A B- B > C C# D D# E F# G G#"
  91. 900 PLAY "MS L21 A < C D P8 P4 < L64 A E C < A P8 P4 L24 < A < A < B"
  92. 910 REM DONE
  93. 930 END
  94.